function[out]=setFBS_one(FBSinfo1,MBSinfo,PBSinfo)
global  mR fR average;
FBSinfo=FBSinfo1;
distance_p=ones(size(PBSinfo));
% distance_f=ones(size(FBSinfo));

OF=0;
while OF<1
    r1=80*sqrt(0.1 + ((0.9-(fR/80))-0.1).*rand);
    seta1=2*pi*rand;
    x1=average(1)+r1.*cos(seta1);
    y1=average(2)+r1.*sin(seta1);
    distance_p=sqrt((x1-PBSinfo(:,1)).^2+(y1-PBSinfo(:,2)).^2);                                                                                                                                                                                                      
    distance_one=sqrt((x1-average(1)).^2+(y1-average(2)).^2);
    
    for i=1:size(FBSinfo,1)
        distance_ff=sqrt((x1-FBSinfo(i,1))^2+(y1-FBSinfo(i,2))^2);
        distance_f(i,:)=distance_ff;
        
    end
    
    if    (~isempty(find(distance_p<100)))||(~isempty(find(distance_f<60)))
        CF=2;
    else CF=1;
    end
    
    
    if CF==1;
        FBSinfo(size(FBSinfo,1)+1,1)=x1;
        FBSinfo(size(FBSinfo,1),2)=y1;
        OF=OF+1;
    end

    
end

out=FBSinfo;
end